#!/bin/perl  
package main; 
#  the my function and privacy 
$name = "Susan" ; 
my $birthyear = 1942; # $birthday is private to this package 

package nosy; 
print "Hello $main::name.\n" ; 
print "You were born in $main::birthyear?\n" ; 
